module Timer = struct
	
	let now () = Sys.time()
	
	let calc_exec_time result t = ( result , Sys.time() -. t )
	
	let print_exec_time ?(name ="UnnamedFunc") result t =
		Printf.printf "%s exec time: %.30f\n" name (Sys.time() -. t);
		result
		
end 